; calc the length of list
(defun our-length (lst)
	(let ((len 0))
		(dolist (obj lst)
			(setf len (+ 1 len)))
		len))

;test
(princ (our-length '(a q w e e r t t y)));
